unit uConexao;

interface

type TConexao = class
      private
          fsenha    : string;
          fusuario  : string;
          fbanco    : string;
          fservidor : string;
          fporta    : integer;

          function getsenha: string;
          function getusuario: string;
          function getbanco: string;
          function getservidor: string;
          function getporta: integer;

          procedure setservidor(const value: string);
          procedure setbanco(const value: string);
          procedure setsenha(const value: string);
          procedure setusuario(const value: string);
          procedure setporta(const value: integer);
      public
          property senha    : string  read getsenha    write setsenha;
          property usuario  : string  read getusuario  write setusuario;
          property banco    : string  read getbanco    write setbanco;
          property servidor : string  read getservidor write setservidor;
          property porta    : integer read getporta    write setporta;
     end;

implementation

{ TConexao }

function TConexao.getbanco: string;
begin
   result := fbanco;
end;

function TConexao.getporta: integer;
begin
   result := fporta;
end;

function TConexao.getsenha: string;
begin
   result := fsenha;
end;

function TConexao.getservidor: string;
begin
   result := fservidor;
end;

function TConexao.getusuario: string;
begin
   result := fusuario;
end;

procedure TConexao.setbanco(const value: string);
begin
   fbanco := value;
end;

procedure TConexao.setporta(const value: integer);
begin
   fporta := value;
end;

procedure TConexao.setsenha(const value: string);
begin
   fsenha := value;
end;

procedure TConexao.setservidor(const value: string);
begin
   fservidor := value;
end;

procedure TConexao.setusuario(const value: string);
begin
   fusuario := value;
end;

end.
